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M3R R) 
Saved: 

'From Squeak 2*3 I 
DlapliiyPrvfllG VflrtflblsSuliclflSfir #FOOlapl<vProfile 

lutcmceVariablQHam&s: 'segrtentLWratio tipurratio ' 

classVuHobleffanes: " 

pMUKctionaries; " 

category; 'NuKi-tcoh-FoldingDigits* ! 
OUplayProfileFoctnry srtclass: ^F00t$playProflleFactsi<y 

InstimceVdrtcfclBNQTOs: 'michorLcnflth segnier^ength saonenttridth tip Gap tiple 

cld$sVaKableNumes : •* 

poolOictlonarles: 11 

category: 'Hwiaricon-Foldlh^igi-ts* I 
AniMtignEl errant subclass: OTSesnentAH 

iR$tancaVarlableNdnu: 'positlanMove anchor sequence * 

clas&VariableNtnns: " 

poolOictioPorias: *' 

category: 'Nuaepicon-FoldingDlgits' I 
DigitAE subclass: SFoldingDiaitAf 

instaneeVdKabXcHares: 1 transition displayProflle stottcGraphics conpastteGr 

elassYariableNanes: 'TransttionsTdble ' 

pOolDictigncries; *" 

category: 'Wunertcon-FoldingDiaitfi' I 

JFDDlsplayProftlc nwthodsFor: 'accessing* 5tan*>: 'tar 

A self fr«wSequenceAt: aPositigrttave. ! ! 

IFOKspldyP roflle, acthodsFor: 'accessing' *taw%>: 'i3r. 
ojichorjequenccPairs: anAssoetittion 
, self fran*&aqugnces: anAssociatign, I ! 

JFDDlsplflyProfUc mcthotisFor; 'accessing' stamp: *nBr 
segn&ntFtllRatig 

*self dcfwiUSejjBentFillRirtiol l 

!FDDi_spiqyProfile methods For; * accessing' sbcmpz t r3p 
scanentLRrfltlo 

AsegnentLtfratiol l 

tFODtsplayPhofile methods Fop: ' access \.ng' stow: 'm3r 
tipLWrutic 

IFDDispliryPrafile BWthodSFar: 'canparinfl' stoop: *m3r , 
- oPrcrFilc 

super »• aProftle IfFalse; E A folse3 . 

seflmBntLWrotlo - aPrgfVlB segment!.* ratio ifFalse; Praise?. 
^tlpLWrutitt - aPpoflle tipLWratlo 

I 2 

IFODlsplayrrofile nethodsFar: 'comparing' stabp: r m3p 
ealcHash 

bash _ super calcHash.. 
Cse^ientLWratig. tipLWrotlo} do: 

i-rabif I hash . (hash bit Shift; 2) bltXer: ratio hash]. 

I FDDlsplayProfi"Le nethodsror: * defaults' stone : T n^r 
defdultSfgriwrtFilUtotlo 

"I distance ±LipCanter delta gap 1 
distance _ 2 sort / z. 
sltpCtrrtcr _ 1 - C2 sqrt / 4). 
delta _ distance - sltpCentrr, 
gap _ C2 * delta squared) sqrt. 
a! - a " flop? - 

! I 

IFmsplayProflle rtettgdsFor: 'private' star?: 'eGr 
initialize: oDigvtCgunter 

super initialize: aDigltCountcr. 

segraentLWratio _ aDtfjtt Counter scgmentLHratio. 

tlpUIrntio _ aOtoltOMinter tipLWrotlo. 



!FDOt£pldyProfila class methods Fop; 'accessing' stamp: 'rtSr 
foCtoryClas? 

*FlKH?ployFToflleFactopy 

I I 

SraYltaU renaiKClosstJaned: #FDDPFdctopy as: #fuOlsplayProFIlcFqctcry! 

lFDDijplayProfilefactery reorganize! 

C^uildino' build culcAncharFc^itlons colcFramaSequences calcOffsetsLi^rs colcR 
Calculating extent* colcfxtant colcHelflhtFrOTConstrtTLnedWidtft: cdlcWidthfronC 
C'Galailatina segment forms' calcSegmentForm: colcTrlangleForn: ) 
C'storino sequences' rtoroSequencesFor: points: form*: stordMiqucftctfltions store 



Pejs 1 of < 



Cold' calctaonUaiSeamrrtrbrii: calcsegnwitForordeptit calcSwothTriaRgteFgni: 



iroOisployPrgfileFactory JiettwdsFpr; 'building* rfcaqi; '*3r 
biKld 
Aself 

CdlcSegmsntDinensions ; 
calcAr>ctiorfositlons; 
calcRotattonPath; 
Cdl^egmefrtFams I 
colcOffsfltsLlstsj 
calcPronieSequeftces ; 
display Profiler T 

I FDDi^lciyprofilef actory tnethod^For: 'building* stmp; *n3r 
cnlcAncharPositions 

I halfAnchortength -fcqpEdgg leftEdge centerX piahtEdge 

HiidTop Kiddle jvufBottor* bottoo£dge I 

hfllFAnchorLHigth _ ancborLength / Z. 

topEdgw _ left Edge _ segnentHidtti / 2. 
ccrrterX „ I eft Edge * hoifAnchartenath. 
righted ge . leftEdge + anchor Length. 

widTbp _ -bopedgg + half Anchor Length . 
middle _ topf age + anchor Length. 
mdRottom _ middle + halfAnchorLengtii. 
bottonEtfge _ niddle * ancharLength. 

(rapcdAn chars , IdantltyOtetlonapy no*; 15) 
at: U put: CceritertC © top Edge) truncated; 
at: #B put: OighfcEdge 9 widTgp) truncated; 
at: PC put: CrtgMfdgc « nricfBgttow) truncated - 
at: fD put: C^nberX 9 bgttgnEdaoj) truncated; 
at: ME put: CleftEdge 9 nidBotton) truncated; 
at: ff put: QcftEdga § widTop) truncated; 
at: SG put; C^BnterX 9 Middle) -truncated; 
at; £Gu put: CcenterX e middlis) truncated J 
at: #Cd put: CcenterX & niddl«) truncated; 
at: #topLeft put: 0- c-FtEd 9 e 9 top Edge) truncated; 
at: #topRlaht put: CrtghtEdge » topgdge) truncated; 
at; fcrtddleLeft put: aeftEdga a middle) truncated - 
at: AnlddleRigM: put: CrightEdoe * Middle) truncated; 
at: PbattumLeft nut; CleftEdae* bottDtsEdgc) truncated; 
ctt: feottwuRight put: CrightEdge ff bottonEdgQ) truncated; 
yourself, 

BognwntAnchors . ffCtep Left topflight nrtddTeRlflht middlcL«ft 

aiddleLgft widdleRiaht bottabftight bottonLeft) 
collect: C:key I naracdAnchors at: key). ! 1 

iroDUplayrroftleFactery nethodrfbr; 'building' staJOp: "nflr 
cal cFraneSequences 

I stepCount rtartlndCT aVnawiicPorasLlsts staticFgnistiats zeroList I 

stepCeunt _ profile stepCount. 

onchorSequeneePaips _ IdarrtitytHctionory new: 44. 
"8 segments * S nwvoDent types * 4 special moves" 

dyiwoicrbrnsLists _ (fi to: 3) collect; 

D quadrant I startlndex _ quadrant * stepCount * 1. 

fores copyfrom: itartlndcx to: startlndex «• stepCwrrt). 
StOticFortrtSListi _ dynprricfomsLlstS collect: Dlist 1 list CopyFrore: 1 to: 7 
zeroList a«^}>- 

*clf 

storeSequencesPop: 'rat ate From' poiirts: zergLipt fonts: dynaBicFoprotistt 
storeSeqwicasFor: 'slipFrcrt' point*; daceleratingHDLU forw: dynamicfon 
storeSequencesFor: "pushFrgpi' points: deceleratingDLUR forms: statlcForor 
storeSequenceaFar: 'pullfron* points: accelcratingDLuft forms: itnticFora; 
storcSequencwFQp; 'owveFrom' points: lincorOLUA forms: rtoticFgm^Lists; 
storeSequenccsFpp; #stotic points: reroList forms: stotlCpapnsLists; 
StDreUniqucSpi ns; 
stor^UrdcjueRotatlons ; 
ywjpself . 

profile ahchorS«iuencePoirs: anchorSequencePoir*, 1 I 

IFuIHsplayPpofilcFoctor^inethodsFor: 'building* ytaup; 'sdr 
calcuffsetsList* 

T fraocCovnt accelerating decelertsting linear fonn anchor steps directions I 

franteCdunt _ profile framaCount. 
accelerating _ Array nw: frame Count, 
decelepating _ Array new: fraoKCourtt. 
linear _ f^rray now: f raMeCount. 
step* _ f rannCaunt - 1- 
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1 to: ft-cne£ount do; 

Dindex I fem_ forns at: index, 
anchor _ fora extent * (fbro offset • 2) - 
accelerating ot: index put; CcnchorLength • anchor )0- 
decelerating at; index put: anchor y. 

linear ot: index put: C^ehor Length * (index - 1) / steps) pounded], 
directions . {AM. 9§-l. 1&0}_ 

dccclerotiitgBUJx _ directions collect: ^direction I direction • occeleraKn 
dwwleratlngDtUR _ directions collect: [: direction | direction - decelerate 
VLnecrDUJa _ directions collect: C: direction I direction • linear]. 

decelerotin^lDLD Airoy new: deceleratlngDLlJft size. 
ctacelerotinoflDUJ atAll: *CZ 3 A l) pvtAll: deceleratinaDLUR. 1 ! 

ITODUpleiyProfllefacbjry methods For: 'building* state : '»3r 
calcRotationPath 

I yZxArc stepCount f roweCount y 2xArcPoints stn» point offset I 

y2xAre _ Arc now center: B-GW.0 radius: dhchorLongth quadrant: 4. 

itcpCount _ profile rtopCount. 

fnoroCount . stepCguirt + L. 

yZxArcFointi _ CyZxArc asLi near Fit: froneCount) point*, 

pothPoints _ Array nor: CrtcpCount - +). 
strepn _ WHteStrfeon an: path Points. 
fraroCount to; 2 by; -1 do: 

D Index I streaii next rut: tyZxArcPoints at: laiaty} . 
1 to: StepCount do: 

C: index | point _ (y2xArcPoints at: index). 

strecn nextPutr & - point x) £ Cpotnt y)]. 
offset _ stepQurt * 2. 
1 to: offset do: 

C:tndex I point _ pathFotnt* at; index. 

pothPoints 

at: index + offset 

put: 0«» - point x) 9 <Q - patnt y}]. | i 

lFMispUnyProrfiloroctorymethodsFor: 'building* stanpz 'n3r 
COleSegcentDiawrtSionS 

ttpLength _ Csegsentffidtti * profile Ttpurrotio; rounded. 

tipGcip _ Conchonenoth • a - profile segnfentFillRotio) / 2) truncated r 1. 

segnsntlength _ anehorLength - (Z * tip Gap) - l.| I 

iFOOisplflyProfileFoctory methods For: 'building* stamp: 'm3r 
calcSegftentForas 

I bdseAnglc scale unlaueCount ■fcotalCount angle 

axxmioalSegmentForm rerttrtetfForm WTmentFOrn I 

bflseAnglc _ 90. d / profile stepCount. 

scale _ profile depth. 

cnnontcolSegmentForn _ 5 qlf colcSegitentFopra; scale. 
unlaueCouftt _ 2 * profile stepCount. 
totalCount _ mriqjieCount * 2 ♦ JL. 
foms _ Array new: total Count. 

l to: uni^jeCount do: 

Dindex I angle _ baseftngle * Clndex - l>. 
segrentFom _ scale » l 

ifTruc; Grotctedronn _ CanonicolSegiientForm 

rotateHy: qnglo nognlfy: (1 / jrothingScale) smoothing: 2. 
rotattdForni triaToPixelYalue: 1 orHot: false J 
if False: Crototcdforw _ cancMeolSeg^entForni 
rotateDy; angle smoothing; 1. 
rotabjdFom _ rotated For. triniToPixelvaluei a orNot: false-, 
rotated Form shrlnxAndEtaoothBy; scalej. 

ot: ind« put: segeeTitFbpm; 

at: index -r uniqueCouirfc put: segrcntrcrra copy]. 

pathPaints withIndc*Do; 

C:anchor : index I segmentFom _ fomj ot: Index. 

«eg»nntForni offset: CCartChor - Jog»entrOm extent) / 2> ceiling] 
farns at; total Count put: C forms at: X>-i 1 

iFDOisplflyProfileFgctory methodsFor: •cqlculatlrta extent* sX^t *n3r 3 
CdlcEktent 

I c absoliJt«VHrattO intcrmlVH ratio I 

c _ profile seoDTntLKTratio J profile sco^ntFUlRotio. 
flbioTotcVHravio _ & ' c ♦ 1J / Cc + 1). 

internalVHratto . Omfale height / profile Width) os Float, 
internolVHrotio > absolutsVKratio 

iftrue: [self cnlcHoiahtFi^on^ainodffidth: cj 

IfFolse.- C^clf calcmdlJtfroitiCoriti^niid?rteiHht: cj.l I 

IFOWsplqyprofileFcctory (osthocteFor: 'calculating extent ' staiiv: 'nflr »i 
ctactfciglrtFronConstralnedmdth; rotioCortst 

I width nraHeignt delta | 

width _ profile width. 
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segaentfftdHi _ width / CrotloConst * 1). 
segaentttidth _ sejnentmdth rcundfoOdd; 
anchorLcaffth _ width - tegrnyitWidth. 
ncwHaifiht . Z ■ anehorLength + segneftHPldth. 
Cdeltd _ newHcight - profile heiaht) > 9 ifTrtte: 

Canchorionsth . onch^rLenath - delta. 

ncnHeight . 2 ■ anehorLength + sejpientWidthJ , 
profile height: nenUaight. 



IFDOisplflyProfilcFpctory methodiFor: 'colculating extent' staip: 'n3r 
cali^dthFroiTCofTtrainedHelghrt; roti ©Const 

I height nertrldtfa deltq | 

height _ profile height. 

segfnwrtlHdth w height / (2* ratioCorist ♦ 1). 

segnientwidth _ iegmentHfidth roundToOdd. 

onchorlength _ CChcigtrt - segnentwidth) / 2> truncated. 

netfftdth _ onchorLongth + segmentm dth. 

(delta _ ricWfidth - profile width) > 0 ifTrue: 
CancnorLength . anehorLength - del to. 
nerttfidth _ anehorLength + eegjoentWdth^ . 

profile width: newffidth.T I 

IFOOtspIoyProfileFactory wethodsFor: * col culating segtoent forms' stajnp: m t&i 
calcSegnentForm: scale 

t segHalfWidth segVidth tegLcngth segTipLength 

topRiDhtTrlangleForn topLaftTriongleForu 

bottotAlgrttTrtcinglcForra bottonLe ftTriangleForn 

rightTtpBase 1 

segVidth _ wgwntXKdth » seole. 
segHalfWidth , segKidth / Z. 
segLength _ segnentLeAgth * ccole. 
xogTipLength . tipLength » scale. 

topRightTrianglcForci _ self crtcTriOndlcfoni: xogTipLength C SegHalfWidth. 
topLeftTriangleFarra _ topRightTrtangleFarp flipDy: IhortZontal, 
hottowllightTrianflleFonB « topRlghtTrxongloFom fllpBy: ivertical. 
botUaleftTrtanglefcrm _ tDpLeftTrianglBFonn fllpBy: Vertical . 

rigtitTipBase „ segLength - xegTipLength. 
<(?rophicst!on(text en: (jam oxtent: segLength e 4eg»idtt0) 
fillBlade; 

display: uapLeftTHangleJ'oni at: 

display: bOttOflLeftTfiflnglefora ot: 6 ^ seaHdlffftdth; 

ouplqy: topRightTridt^leFo™ ot: rightTipBase © fi; 

display: bOMoffiRtghtTriongleFonD at: rightTipHase S segJkilfWidth; 

form! ! 

IFDCKsplayProfileFdCtory octhodsFpr; 1 calculating segn=nt forms' stanp: 'm3r 
calcTrittnglcForHj: extent 
1 g ratio linq x I 

g _ CraphicsContext extent: extent rounded depth: 1. 

line _ Line new. 

ratio _ extent x / extent y. 

0 to:- extent y - X do: 

L":y I * - Cy * ratio) rounded + 1. 

line frto: B % y to: x e y. 

9 displayt linej. 
A fl form" ! 

!Fl)Di3playPrDfilcFoctory n^hodsPer: "storing sequoncos' Stoop: *«3r 
StO resequence* For : OCtioO points: pointxLuts foras; foPTSLiStS 

FoldingDigitAC sognentNajoes wlthlndejiDo; 

[rsegpcntNan : index I anchorSeou&ncePoirs 
at; Coction — ■ flstattc 

tfTrue: [Cscs^ntMara ot: X) asSyefcoi} 
ifFa"Uc; CCaction , segnerttttdcie) axSynbol]) 
put: (>egi>cnrUnchors at: index) -> 
CFroae5equence 

points: OointsLists otWrop: index) 
forns; CformsLists anting: Index))]. 



IFODisplayProflleFflCtory aethodsFgr; 'storing sequences' stoop: *v3r 
stoi-etmiqueRotationx 

I iroflpcownt frfltneCount: wideftotationForns dtceleratihgUpOffsets horizoiruilFo 
rotatEAndPOsnOffSBtS rOtoteArtdPUihForms pointsStream fortBSStrean middlcRi 

rtepCount _ profile stepCount. 

wideRototionforms _ form atAU; CstcpCount + 1 to: stepCount ♦ 3 + 1 by: 2). 
priddleftlght _ naaedAnchors ot; ftniodleRiflfrt* 

anchorSeqUencePairs at: #«rideftotateC put: 

middigfliaht -> CFraneSequence points: {0S6} fan??; wideRotationFortns). 

frameCount _ ftepCounx + 1. 
rotateAndPu5h0ff5Bts _ Array new: fra&*Count- 
rotatoAndPushForns _ Array new: f roPCCount . 
pointsStreoD _ WKteStreoD on; rotateArdPushOf f sets . 
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fortnsStrem _ WriteStreon on: rototaAndPushFonni- 
dectlcrotinyUpOffsfitx _ decelerating!) LUR at; 3. 
. horlzQAtdlFOm _ foms at: stepCount •2 + 1. 

1 to: fraaeCoiint // 1 do: 

t-t*** I poinUStrean nextPut; 909. 

forrosStreari rvextPtft: CrtdcFotationForns at: ladejO]. 
CfraneCount even iflFoU^; [13 iff" rue: p]> tor fraieCount by: 1 do: 

Dindex I polnt«Stiwn nextPut: CdtcelchaHngUpOffsets at: index}. 

forrsStrBon nextPut: hortzontdlFara] . 

□ncharSeausncePalre at: SratatcAndPushC put! 
ariddleRlaht -> 

(FraweSenuaico points: rotateAndPushOffsots forms: moteAndPushFarc* 

JFWrtspIoyPrxrFilgFflrtory methods For: 'storing sequences' stoop: *in3r 
stordkiiqu^Spins 

I stepCount sptnForrc form I 
stepCount _ profile stepCount. 
spinForsis _ Q to.- rtapCount * 2 + 1 by: 2) collect: 
£ index I fom _ forms at; Index, 
fb™ eppy offset: CO - CtortA extent // 

enchorSeauencePalrs at: BspinG put: 

Cnunedftnchora tit; sq) -s CFrajjjeSequenee points: forms: spinForms). 

spinFdrnw __ CstapCount + 1 to: stepCount ♦ 3 + 1 by: 2) collect: 
Q;ind«* t forn _ farms at: Index, 
fcxro copy offset: <B - <foni extent // 2)}]. 

anchorSeouencePaLM at: #diagonolSp\n£ put: 
CnonedAnehors at- #E) 
CFraneSeoiicncfl 

points: QineorOLUR ot: *) * ClinaarDUUR at: 3) 
forms: SpLhForms). I f 

I FD M. splay ProflLeFactory net hods Fen 'old' stoop: "n3r 
calcCancfitcal5c£ncntF9np; scale 

I left right but, tun I 

left _ tiplengtfi * scale. 

right _ CsegrantLength - tiptength) ♦ scale . 

botton w segnentHldth * scale - 1. 

COnDnlCdlSeanentFonn _ self calcSeanetttFoni: scale depth; 4. 
(GraphlcsContext an: c^airiwlSeanientForni} 

mosKPatterm CBitrnap frith: 16r3l3l3l3Jj; 

drawLlneFrora: (left e> ©) to: trloht r? B); 

naflslcPattcm; (Bitmap rdthi 16r 131313X3); 

drnnLineFron; Cleft - 1 € bottom) tp: Criflht - 1 # bat ton). 



) t 

IFDtHsployProflleFactory methods For ; 'old' stamp: 'm3r 
calcSeanentFarn: scoIq depth: depth 

I *cgMQlflfidth segVldth seaLenath scgTip Length 
topRiflhtTrtangleFoj-B tz^pl^ftTriangleForn 
twttorttffhtTt'LingicFor* bottomLeftTrlanrtleFgnD 
bounds KghtTipBase 9 I 
segHaifWtrfth _ scgnentWidth ■ scale. 
seaWidth _ scgHolflttath - Z. 
seg Length _ seaiwntLength * scale • 2, 
segTipLength _ tip Length * scale * 2. 

topftt^htTrtdngleForq _ solf COlcTKdnflleFara; 59STipL«nflth S seaHalfWlrfth. 
tOpLeftTridnglcForw _ tOpftiyhtTrlangleFonq flipfty: #horl20frtfll . 
bottotBRightTrianaleForm . topRlaMJriangleForii fllpfly: fVertlcdl. 
bottosLeftTriangUFora _ topLeftTrtanglefgrni fltp&y: ^vertical. 

KghrtTipOase _ seaLeflgth - ScgTiplonBth. 
bounds , tea corner: scgUngth # seawloth. 
Cg . CraphluCcntcxt bounds: bounds depth: depth} 
FttlBlock; 

display: topLeftTrionglcFcrp at: 060: 

display: bot±ond.cftTrionflleForn ot: 8 e segHalfWidth; 

display: topRiahtTrianglijFpPfl, att rvghtTipBasc 6 6; 

display: botto^gWiHanglcrwii ot: rlflhtTtpBasc % segHolffidth. 

form tpagpify: bounds by: 0.S sraDothing; Cdepth *. 1 ifTrue: Ci] ifFalso: C2 



(FDDx^lgryProfilefoctory methadsFDr : 'old' stamp: 'n3r 
cnicSraxrthTrian3leFonn: extent 

! g rtrtio line x scaledExterit I 

seal nd Extent _ extent * *. 

g _ CrophicsCorttext exterTt; ;cplcd Extent depth: 1. 
line _ Line new. 

ratio _ scaledExtent x / icolcdEytgnt y. 
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0 to; scaledExtent y - 1 do; 

C:y I x - Qr * ratio) rounded 1- 1. 
lira fron: 0 § y to: x 0 y. 
a display: tine}. 

forai shrinWy; 4 smoothToOeptft: 4.1 I 



IFOOi&playProFllefactory class net hods For: 'building' stoep; 'raSr 
buildOn: roMProflle 
I factory 1 
(factory _ self now) 

sctOisplayProfile: rawProftle; 
calcExtsnt. 

Aself proflleAt: factory displayProfile ifAbaentPut: Cfbctory build] 



[FDSognantAE reorganize! 

Call' deactivate isOeoctivated postttnnMove positionHovQ: setAncharAndSequence 

C'arco colculotion' drawlMaArea) 

I 



iFDSefltnentAE BethodsFor: 'all' stamp: 'm3r 
deOtlLiVotc 

anchor _ seauence _ nil. 

self 

setlocation: «06; 

£etB«Jnd£= C«» corner; B««f>, 

1 ! 

IFDSegmcntAE ccthodsFor: 'all' stoop: k m3r 
isOeacti voted 

ApositionVtove » nil! | 

iFDSegsentAE aettiodsFor; 'all* stanp: T iSr 
poSitianHiyc 

Apa$ltlor4t9vol I 

(FDSea»WrtAf methodsFof: 'all* stump; 'a&r 
positiofttove: asymbol 

posttlenUave _ aSymbol.l I 

JFDSegraencAE mcthodsFor: 'all* stamp: '*3r 
sei^ni^KirAnd^equcrK«Frorn: diSplayProFlle 
I assoc irtdc* form I 

di spicy Pro File «=- ntl ifTru& C*self deactxvotg[] . 

ossoc _ dtsplayPirof lie anchsrScEiwncvPairAt: posttiorttove. 

anchor _ assoc key. 

sequence _ axsoc value. 

index _ self sbep. 

fam _ seauence fonoAt; index. 

self 

set Location; anchor 4 Csequenee posltiahftt: -index)] 
set&oundsj CForn offset extent; fpru «xterrO. 

r 1 

IFDScgirontAE nethodsFor: 'area cdlculatlon* stanp; 'sgr 
drawingAreo 

Aself bosicCrwinaAreal ! 



iFoidingDigitAE reorganize! 1 
C'occcssing* colorMapa transition:!) 

('ermue ratine' octlveSe fli ^i i Ls Do: dtynanicS^PontsDo: statleSe ^imiUD o;) 
C display proftlina" depth depth:) 

C'hanallna chanae' aspectChangcd boundsChanaed colorChanged vnlwChanafldFronO 
CupdOtlna' OSSl^nSeainerrb* ensureDisplayProfile updoteStaticFonD> 
C ' area calculation * droningA r«a) 

C'prtvnte p assigrtDynojiicSeasents: o^slgriStatleSedmcnts; buildSe agents initiali2 
C defaults' defoultOeptlO 



I FoldingDiaitAE nethodsFor; 'accessing* «tamp; 'nOr 
colorMops 

AcolorHcipsr I 

iFolairygDlaltAE nethodsFor: 'ocw^irg' stasp: *«3r 
tnansltion: aTransltion 

transition _ dTransitian. 
*self 

asslanSegstents; 
aspectChanaed! ! 

IPolalngDtQltAf uethodsSbr: * enumerating T rtanp: r n3r. 
acttveSeaaiefltsOo: aOncArgfllodc 

self SUbelententlDD; 
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M3R Pt> 
Saved:' 



C:*egnent 1 segBcnt pcaitionMove — nil IfFalsa- 
frflneArgfllodc value: segraentJDJ 1 

IFoldingOi^itAE nrthodrfor: 'enutEpot-ing' stoop*, 'flflr 
dynorteScgrMrTtsDo: aOneArgBlock 
self siiwlenentsDo: 

Ciaegnent l segment positlorMove sixo > 1 if False: [^self]. 

aOneArgfflock value: segment].! I 

IFblifinflOi^itAC methods For: ' enumerating ' stamp; 'n3r 
stcrrtcSeajtentsDa: oQneArgBlock 
self iiibelcrantsftaverseJto: 

Dsegwnt I segsent positiorrtovs size - l ifFolsc; r>s«lfj . 

Q^cApflBlodc value: scgnarrtG.I I 

IFpldingWgitAEnirthpd^Fop: 'display profiling* starro: *«3r 
depth 

I Context depth I 

A*alf propertyAt: ftfepth if Absent: 
[(context _ sslf context} — nil 

ifTrvs; [salf propertyAt: fidepth put: self rfeFaultDcpth] 
ifFalse: tdepth _ context findPropertyAt: fcfcpth if Absent: 
[Aself default Depth] . 
depth win: self defaultDeptKUI I 

IFoldingDiaitAE nethodsFor: 'display profiling* ±ta«ip; 'n3r 
depth: newDepth 

newDepth > A ifTrua: 

Cself error: 'roldingtHgits only supports dspths of 1,2,4 bits! ' *]. 

super depth: ncsdfepth. I I 

iFoldlngOtditAE rncthodsfor: 'handling change' Stoup: 'n3r J 
aspeetChdnged 
Self 

updateStotlcFara; 
narkVlsibleAreaDi rty. 
Afolsei ! 

tfoldtnglKgitAE Methods For: 'handling change * stamp: 'ttBr'. 
fxssidsChansed 

*t<rticG rap hies « Graphic$Context extent: self extent d9*h: self depth, 
conpositecraphtcs __ nil ""CFonn extent: extent depth: digit graphics depth}", 
*super baundsChpTigedl ! 

lFoldtngDtgttAE RcthodsFor: 'handling change' sttmrp: 'nfir 
colorChdn^cd 

color+faps _ self class Color+fapaFor; self Color Ot: self depth. 

^=clf aspactChan^ed! ! 

iFqldingpigitAE nethodsFor; ■handling change* stm^z r n3r " ( 
valuoChangedFrna: p revi outvalue 
self trdnsittort: 

CCself dcAntrartflValueChtMiqe: prevlau4ValuO 
ifFalse; flsalf value}] 
ifTrve; C-Ctransltion last, self value}!}. 
*falsel I 

IFoldirtgOipltAE net tods For: 'isjwiatirig* Strmp; r -n3r 
ossiariSegwetttA 
I actions I 

actions _ ReadStrwra on: Cself elds* *cgmentActiorBFor: transition) . 

Self 

attiflnStoticSefltenfcs: actions next| 
assianDyTiamlcSegmcnts: actions.] i 

[FoldingDlfll-tAH nEthodsFor: 'updating* stansi: 'r&r 
en sureDtaplayProfTla 

dlsplayPrnf iu _ FDOisplayProf lie prpfilefor: self. 

Self activaSegjnentsDo: 

Dsaanent I segraent yd^chorAndSeouehccFrgrq; displayfrofilej. 



IFoldingDigitAE methods For: 'updating* stomp: *m3r 
ifJdateStaticform 

ytaticGraphics «- nil ifTruer E A selfJ . 

compost tefiraphies _ nil. 

statieCraphics HUTransparent. 

self rttrtrvcSegraefttsDo: 

C:sea«e*rt: | segwt dpawOn: statieCraphics]! 1 

IFaldtngDigitAE tpathodsFor: 'dred calculation' stawrp: 'H3r, 
drarrLngArca 

A sclf basicflrawlnflArea! I 

IroldinatKgitAc methods For; 'private' sttjxp: '«3r | 
assi(po>BawleseeinEht*; actionsStream 
self sub el pqgnts Do; 

Delnrorrt I acttensstrean atEnd ifTrue: C^selfJ. 
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ClCfMJflt 

positionMove : octtorsStreci next; 
5ctAnchcTAnd5equenceJ : rat>: dispUjyProfUeJ 1 E 

I Foldine&iattAE method* For; 'private' stamp: 'kdr 
asBljjnStaticSeaoents ; anArray 
I positions I 

positions . fteadStreda an: anArray. 
5Qlf subelereentsReverseOa; 
C:elentent i positions atEnd 
IfTmc: Celenent 

posltlOhHove: nil; 
deactivatE] 
if False: [elemeTTt 

posVttonMove: positions next; 
S0tAiicii0rAno5ea^ienerFrDau diiplayProfile]] I ! 

IroldingOiflitAE wethodsFior: VKvato' stoop; »n3r 
buildSeanents 

*self SUbelencnts; 

CO "b?; «lf class seamentNaweS site} collect; D index \ FTCepentAE ne»] 

IFoldinflDinitAe methodsFar: 'privtrtc* stem*: '«3r 
initialize 

SUper initialize, 

transition _ Array new: 1. 

self buUdSeaBents. ! ! 

I Folding ErtaitA£ methodsFar: 'defaults* state; 'edr 
defoultDepth 
Ml ! 



! FatdingDigitAE class reorganize! 

C accessing' clearProflles proflleClass segncntActiansFor: segwetttfkiBies} 

C" reading in transition** reodInA£±i onT^p^T^oni j r eodlnActlonTyp czFn*a : roadlnCe* 

C doss initialization* but ldSa«=ToS<roTran* i tians bulldTransitlonsTahIc ensure 

I 



■ FoldinguigitAE class rethodsFor: "accexsing* stonp; 'm3r 
cleorrrofiles 

^elf prof lleCldf S cloarPrafilasl I 

[ Fold! nflCrt. gl tAE tldi* aethodsFor; "accossiiig' stanf>: 'M3r 
proflleClass 

*FDOlsplayPrQfilcl I 

I FaldingOigitAE class methods^or: 'accessing* »famy ; 'pi3r 
soginantActionsFor: artAnroy 
I from to f 

from _ (from M dhArray at; X) — nil 

IfTrue: Cli] IfFalse: [fratB-t- 1], 
anArray site - 1 ifTrus; D A TronsitionsTable at: frota}. 
to _ <to _ anArray at: 2) — nil 

ifTrue: CH] ifFalse: [to + 1] . 
ATransitionsTabte at: C^**™ • 11 * t»}1 I 

lrOldinatHgitAg class oethnd^FDr; 'accessing' Stavp: 'f&r 
segiBentNanes 

a«CA B Ql F Gd C D E)| | 

IFoldinflCKaitAE class metttodsFor: 'reading in transitions' stamp: 'flflr. 
rvodrr^ctionTypeFran: stream 
^CStrlna stredn£antents; 

[:actlanNaaw I actionNane nextPut: stream next. 

Otreaa atEnd not and: fjstrean peek IsLowruseJ) iviiloTrue: 

Cacti orHaro next Put: stream next}]} 
casoOf; CC'Ph'D -> CpushFroa'}. 

C'Pl'3 -> t'P"llfroui'], 

CS1 -> rsltpFrou'D. 
C'R'3 -> C'rototeFrora^j! » 

iFoldingWgitAE class netnodsFor: 'reading in transitions' stomp: 'n6r' 

r«adl/iActionYyp**Fr<o; inStrtfti 

'•Array streanContents: 

DoutStrean I CinStreani at£rtd] whllcFalso; 

QMitStreoB nertPut: Csclf rcndlnActionTypef poo: InStream}]] | J 

! FoldingIHgitAE clou nvthodsFor: 'readtnfl in transitions * art crop; *m3r 
reodXhCellFranii stroom 

Astrcani gpTo; Character tab. 

I I 

IFoldinyDiaitAE class methodsFar: 'reading in transitions * stamp: "W3p 
readlnLlneFran: strean 

I transit lonlndex seataentActions rtaticSegaxntts segmcntOata I 
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tirnsltionlndex _ self rgodInTronsitionX*yFr^Ti: rtrwa. 
snjnentAetiflftj _ solf reodZmScgaentsActionsFroD; strean. * 
stoticSafljwnts «. self readlnStoti cSegmentsFroii: stream. 

seflnentOato _ segnwntActtons copyirlthFirct; rtoticSqaaents. 
Trans ItlenjTciblc at i transitionlftdt* put; wgrnsntData* I [ 

ifoldin^igitAE class ncthodjFbr; 1 raiding tn transition* ' rtonp; 'n6r 
rcqcdnSe^HrrtActionsFrom; stream 

ACsegncntfctigns _ self readlnCcllFmi: stream) size - 0 
ifTnw: [FOJ 

ifFalse: Cself rcadlnActignTypesFPOo: CReadStrcan on: seajtantActlons)) ! 

IFoltflneOl^ttAE class nethodsFar: 'reading in transitions' steep: »aflr 
readZQ^cgnentsActicnsFrain: stm 
I CKticnffoPds I 
AArray strensCmtents: 

[tautStrwD I #CA B C D E F Gu Cd> d»: 

t:sesnentKane I urtionKortU _ self reddlnSegn-ntActtonsFrap; streafl. 
actionflords do: 

DacttortSlard I avtStrecai nextPut: 

CaettonWocd , sefliientHaneD as5y*oljm > 

rfoliiingDigrtAE class nethodsFor: 'reading in transitions " stomp t *m3r 
iteacHnStPtvcSeamentsFrm stream 

^Cstreat upTb: Character cr) with&lankSTrtiBned asArroy collect: 
D^OdieAfc I Segment QS$>vfcol] 

t I 

rFoldingOigitAE class fkeUtodsFcr: 'reading in transltioas.' sttmp; '*&r \ 
rwdL^n^tlonK^Frtw^ stream 

from _ self 7 rcocUnCellFrai: streaa. 

fran _ Fran size - & tfTrue: CllJ ifFalse; [fron asNunber -t- 13- 
to _ self raadlnCellFran: stream. 

to _ to size „ o ifTrue: CL1] tfFuLse: [to osNwfcer + U . 
Afro* - to ifTnre: [to] IfFoLse-. [fro* ♦ 11 + toji ! 

IFolrfinaDigttAE class ncthocfcFgr; 'reeding In transitions 1 stcrop: 'm3r. 
reodtnTraisttionsUkitd 
I StTedrri I 

Cstrean _ RcadStmn on: self transit l on sDcrtn) 

UpToi Character cr. 
Estreon atEndJ wiiilrfalse: 

[self reoalnLiMFraar s-fcrcmf] „ | I 

IFolrfingDtpltAE class wthodsFor: 'reoatng in transitions' stomp: 'io3r 
transttlonsDato 

*' ABCOEFGuGd static 

0 PhR5 PhRS 

1 R 5 

2 PWPWG 

3 PhRPhSG 

4 RS5 G 

5 PhSFhSG 

6 PhS PhRS G 

7 PhRS 

8 PhRS PhRS C 

9 PhRS PhSG 
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IFDldiugDigitAE class nwthodsFor: 
builctStomToSaneTransltions 

I index sequences statics I 

*C2 3 4 5 6 8 <0 do: 



'closs initialization* stamp: 'aUr 
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[rniftfcer | index _ nutter * 1. 
sequcncas . Transl-tiohsTobla at; index, 
statics . Csequinces at: O copyWithout: #G. 
TtaosttionsTable at: {12 * pirtx {statics. fcpinG}], 

sequences _ Transition^Tobla at: ft ■*- l. 

TronslttcftSTablfc at; 12 '0§0 M put: C««iu*i«!s copytrlth: *diogonalSpin£). 
sequences _ TrwisittoiisTabU at: X + 1. 

TPflnsttiijfwTable at: 24 put; Csequenee* copylfith: rfWtdeRoteteO 
sequences _ TronsltlofwTcale at: 7 4-1. 

TransittonsTable at; 96 B 7§7* put: Owences copytith: frototeAndPushO- 



I l 

IFoldtngDtgltAE class methods For: » class initial 12^^' ytonp: 'nflr 1 
butldTransitionsToble 

TrtxnsitionsTable ^ Array nqw: 11 * 12. 

salt 

readlhTransitians Data ; 
bull dScxmeToSanjeTrtjnsition? . 

! ! 

iFolrfinglHgitAE class taethodsFar; 'class Initialisation* stamp: 'nflr 
ensure 

TransltimsTablc iflHlr 
[super ensure. 

Wlf UlllaTran3i-bionaTc*U3 . 1 I 

IFoldingbialtAE class wttiodsFor: 'class initialization' statapi >n& r 
initiallzeActions 

~JtainationEUnent rebuildAHArtions." 

super initializeActions. 

Asslf 

addActlan: tolorOwnfled for: *ealor; 
actions I I 



FDDisplayPraifila rewveS elector: asettfavBments:! 
FDDtSpldyProfile ranaveSeLectOr: AiovcrontDataAt: ! 
FDDtsplayPrgfile refMVeS elector; #sequenceAt: J 
FXL^playProfile rawvcSclectgr; #set Ext entF ram; ( 
FDDvsplqyProfile removuSelactor: # forms! 
FDMspTayProFUe rcroveSelector: #forrc:| 
FDMsplayPrafileFactory removtSelector; #calcStruetureU^.ngCon strvine dHeiflhtFor 
FODlsplayProfileFoctory reMoVeSelcctor; #inttialiiel 
FDDi $playprof i leFocto ry renovcSolectar; tfrecnlc&toptl 
FDDisployPrQfllfeFactory removeSelector: *KtorQSBauencesFor:offieti:forro; [ 
FDDl^layPrTrfilBrcctory removeSelector; foetDlspliiyProfHlc;! 
FimispLnyPncfile Factory nec*vte5 elector; #CflIcSeattcntl 
FDDlsplqyf*r«fileFactory renovcSclector: #stcreMm/ewefTtsFQr:offsets:i l br»3:l 
FDDisplev^roflleFoctory rooveSelectar: •*torcUniaueRatattons:! 
FCDvsplayProfUcFadbary rmveSelector: Itiili^tructureUstndConftriiinedVlidthPorC 
FMH^ployfroflleFactory rcnoveSolector: *eolc*feves)entData( 
RlOisployf'rartleFdetory ramaveSelertor: #calc5tructnrel 
FtiDisplayProfUcFactary remveSeleftor; #defaultSe$«hfcFllTJlatiaJ 
FDOisplayPrafllcFoctory resuveSelector; ftsnootMndScale; f 
FDOlsplayProfileFactory renaVeScl set© r: #3toreUniquc5pins: I 
FDSegnentAE removes el Actor; teotHavereentDtftaFnsm; | 
roSeffirantAE rettDveSelcctar; feetSequertCeFrara; I 
FDScffwntAE rawveS elector: iWisplayProflle! 
FDSeanentAE ret»veS elector: ft»vetientQfftaFroii: I 
FDSegmetrtAE rawveS elector: fpnsitiorttTve: using: i 
FDSeawntAE removes elector; T&cundsChanged! 
FuSegeentAE redboves elect or: #setMovettfttOata: I 
FDSegrentAE femjv^ Select or: fsetBoundsFroait 
FaldthgDisicAS reDoveSelecturr fejpdcrte Segments I 
FolttinaCigitAe remavdSeUctor; #dlsplayPnyfHlc f 
FolrfingDigitAE remwtScUctcr: TfeelfValucOxmacdFrora: I 
FoldlngDlgltAE remg'vq Selector: ffse0feiTtfiam&l 
FoldlngDigitAE removeSelector: fassigrftjveuentsrto: 1 
FoldingOigitAE renoveSelEctor; ffrwetDispldyProfila I 
FoldixiglHgitAS ctdSS rerajvcSclcctor: finDVtstcntOataAt: 1 
FoldlAflDlgltAE clos* rWDOVeSfilectOr: ffreadlnMoveTypeFraa; I 
FoldlnaDlaitAE clou ranoveSelector: iJrwiviwierrtsDatal 
Foldlndth^itAE class raDOveSelector: 4r*adXnMoveniej^incFraa; I 
Foldtn^Ol^t-tAE class removeSelector: £readInMovemeiYt£ I 
F0ldingDig\-tA6 class renavc5clcctQr: #readAnSegmcnfc5HovenientsrrDrti: I 
Fgl*tir»flWaitA£ class ritnoveS elector: afcutldMov^entsTable l 
FoldlngDtaltAE clew rcmoveSelect6r: frecxiInMoveo>enttran2LtionFrcm; I 
FoldintftHattAE cla« rwoveS elector: ^transitionDataAtil 
FoldingDlgttAE class remveSeleetCtr : ^eadXnSegrBenfNovenerrtsFraqi:) 
FoldlndDlgt-tAE class renove5electbr: tfrcadlnwvesTypeFroa: I 
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